MORE CALCULATOR 
AND COMPUTER PROGRAMS 

FOR EMi 



AS-49-29 


varian, EIMAC division 

301 industrial way 
san carlos, California 94070 



The first two programs listed in this EME note are for 
the TRS-80. Stephen Gayeske, WB5LWS, is the author of these 
versions of the original program by Lance Collister, WA1JXN. 

The HP45 calculator program for the moon azimuth and 
elevation, allowing for parallax, was supplied by G.D. Wall, 
ZE2KV. This same program can be used to calculate great 
circle distance and bearing between two locations on earth. 

Brian Manns, K3VGX, submitted the TI58/59 program for 
determining the sun or moon azimuth and elevation using data 
from the Nautical Almanac. 



:-SMOON LOCATION PROGRAM FOR LEVEL II 16K TRS-80 RADIO SHACK COMPUTER 

560 LET P5=2 ♦0000000000*2*1415926535 
570 LET D5=260 ♦ 0000000000/P5 
580 LET R5=P5/26Q *0000000000 

590 INPUT "WHAT IS THE LATITUDE IN DEGREES r MINUTES * »L5 * U5 
610 INPUT ■ WHAT IS THE LONGITUDE IN DEGREES j MINUTES" >L6rU6 
630 LET L5=<L5+U5/6C)*R5 
640 LET L.6= < L6+U6/60 ) *R5 

650 INPUT " WHAT IS THE DESIRED PRINTING INCREMENT IN MINUTES" >1 

670 INPUT "DO YOU ONLY WANT PRINTOUT WHEN THE MOON IS NEAR THE HORIZON " 5 B$ 

700 IF " YES " THEN 730 

710 LET 16=100 
720 GOTO 800 

730 INPUT " BELOW WHAT ELEV ♦ IN DEGREES DO YOU WANT PRINTOUT TO OCCUR " 5 16$ 

750 INPUT " WHAT ARE THE GMT MONTH * DAY » YEAR DESIRED" 5M*D»Y 
780 IF M=0 THEN END 
790 GOTO 900 

800 INPUT " WHAT ARE THE GMT MONTH* DAY * YEAR » TIME INTERVAL ( BEGINNING * ENDING ) DESIRE 

D " * M * D * Y * B * E 1 

840 IF M=0 THEN END 

880 IF B$= " YES " THEN 900 

890 GOTO 1000 

900 El =240 0 

910 B=0 

920 GOTO 1000 

980 LET Y1=Y-(INT(Y/100>*100> 

1000 PRINT 

1010 PRINT "POSITION OF MOON ON " 5 M 5 " / " 5 D 5 " / " * Y 5 " " » B J " - " J El " GMT =" 

1020 PRINT 

1030 PRINT" GMT" ? TAB (15) "AZ" 5TAB(30) "EL" J TAB (45) "GHA" 5 TAB ( 60 > " DEC " 

1040 PRINT" " JTAB(15>"--" JTAB(30) " — " 5TAB<45>" " J TAB (60) " " 

1050 PRINT 
1060 LET 11=2 

1070 REM HERE BEGINS CALCULATION OF JULIAN DATE 

1080 IF M>=3 THEN 1160 

1090 IF INT ( ( Y- 1853 )/4) <11 THEN 1120 

1100 LET Cl=~l 

1110 GOTO 1120 

1120 LET C1=Q 

1130 LET J 1=365* (Y-1853 )+D+30*(M+9)+INT( (M+10)/2) 

1140 LET J2=INT ( ( Y-1853 )/4)+l+Cl 
1150 GOTO 1270 

1160 IF INT ( (Y-1852)/4 Xll THEN 1190 

1170 LET Cl=-1 

1180 GOTO 1200 

1190 LET C1=0 

1200 IF M=9 THEN 1240 

1210 IF M=1 1 THEN 1240 

1220 LET C2=0 

1230 GOTO 1250 

1240 LET C2=l 

1250 J 1 =365* (Y- 1852 )+D+3Q*(M-3)+INT ( (M-2)/2) 

1260 LET J2=INT ( ( Y-1852 ) /4 ) +C1+C2 
1270 LET J=J1+J2 

1275 REM (JULIAN DATE-2397547 ♦ 5 > FOR 0 HOURS GMT 
1280 LET T1=J- 17472 . 5 

1290 LET D9 = ( B~ INT (B/10 0 )*1 00 ) -KENT ( B/100 )*60 
1300 LET D6=(E1-INT (El/100 )*100 )+INT (El/100 )*60 
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1310 

1320 

1330 

1340 

1350 

1360 

1380 

1390 

1400 

1410 

1420 

1430 

1440 

1450 

1460 

1470 

1480 

1490 

1500 

1520 

1530 

1540 


LET D7=D9-D6 
LET D8=D7-I 
IF D7>0 THEN 1350 
GOTO 1380 

IF D8>=0 THEN 2240 
LET B=E1 

LET T- < B-INT ( B/l 0 0 ) *1 0 0 ) /1440+IN f (B/l 0 0 ) /24 
LET T5-T1+T 

Kl=( ( ♦ 751213+ ♦ 03660 1102*T5)-INT ( .751213+ . 03660 1 1 02*T5 ) )*P5 
K2=-( ( .822513+. 0362916457*T5 ) -INT < ♦ 822513+ . 03629:L6457*T5 ) )*P5 
K3=( ( .995 766+ . 0 027377/ 852*T5 ) -INT ( .995766+. 0 0273777852*75 ) )*P5 
K4=( ( ♦ 974271+ . 0338631 922*T5 ) -INT ( . 974271 + ♦ 0338631922*T5 > )*P5 
K5-< ( ♦ 0312525+ . 036748195/ *T5) -INT ( . 0312525+ . 0367481 957*T5 ) )*P5 
LET L8~K1+ . 658*R5*SIN ( 2*K4 ) +6 ♦ 289*R5*SIN (K2 > 

L8=L8~1 ♦ 27 4*R5*SIN ( K2-2*K4 ) - ♦ 186*R5*SIN ( K3 ) 

L8=L.8+ . 214*R5*SIN < 2*K2) - ♦ 1 14*R5*SIN < 2*K5 ) 
L8=L8-.059*R5*SIN(2*K2-2*K4>-. 057*R5*SIN < K2+K3-2*K4 > 

K6-K5+ ♦ 6593*R5*SIN (2*K4)+6.2303*R5*SIN(K2)-1.272xR5xSIN( K2-2*K4 ) 
L7-5. 144*R5*SIN < K6 )-♦ 146*R5*SIN ( K5-2*K4 ) 

D1 =COS < L7)*SIN< L8)* .397821 +SIN(L7)x. 9 17463 
LET D1=ATN(D1/(SQR(1-Dlf2> > ) 

LET A2-C0S (L.7)*C0S(L8)/C0S(D1) 


LET 

LET 

LET 

LET 

LET 

LET 


1550 LET Al=(C0S(L7)*SIN<L8)x .917463-SIN ( L7 ) * . 397821 ) /COS ( D1 ) 
1560 LET A=ATN ( A1/A2 ) 

1570 GOSUB 1870 

1580 LET R 1 =A 

1590 LET L1-. 065709 82 2*T1 

1600 LET L=T*24*1. 002738+6. 646055+ ( Ll-INT ( Ll/24 ) *24 ) 

1610 LET L= ( L-INT ( L/24 ) *24 ) 

1630 LET G= ( L/24 ) *P5-R1 
1640 IF G<P5 THEN 1670 
1650 G=G-P5 
1660 GOTO 1710 
1670 IF G<0 THEN 1690 
1680 GOTO 1710 


1690 G=G+P5 
1710 LET H=L6-G 


1730 LET E3=C0S(L5)*C0S(H)*C0S(D1 )+SIN(Dl )*SIN(L5) 
1740 LET E2=SQR( 1-(E3*E3) ) 

1750 LET E=ATN(E3/E2) 

1760 IF E<0 THEN 2170 

1770 IF E>I6*R5 THEN 2170 

1790 LET A2=SIN(D1)/(C0S(L5)*C0S(E) > 

1800 LET A2=A2- ( SIN ( L5 ) /COS ( L5 > ) * ( SIN ( E ) /COS ( E ) ) 
1810 LET A1=SIN < L5 ) *SIN ( D1 )+C0S(L5)*C0S(Dl )*COS(H) 
1820 LET A1=(SIN(H)*C0S(D1))/(SQR(1-Alt2)) 

1830 LET A=ATN( A1/A2) 

1840 GOSUB 1870 
1850 GOTO 2020 
1860 REM 

1870 IF A=0 THEN 1890 

1880 GOTO 1930 

1890 IF A2<0 THEN 1910 

1900 GOTO 2010 

1910 LET A=P5/2 

1920 GOTO 2010 

1930 IF A>0 THEN 1990 

1940 IF A2<0 THEN 1970 


1950 LET A=P5+A 
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1960 GOTO 2010 

1970 LET A=F'5+ ( A-F'5/2 ) 

1980 GOTO 2010 
1990 IF A2>=0 THEN 2010 
20 0 0 LET A-A+F'5/2 
2010 RETURN 

2020 IF(T~I1>X2*I)/1440 THEN 2040 
2030 GOTO 2150 
2040 PF<I.NT 

2150 PRINT ( INT ( B+ . 5 ) ) ? TAB ( 13 > INT ( A*D5*1 0*+ ♦ 5) /10*2 * TAB ( 28 ) INT ( E*D5*1 0 + ♦ 5 > /1 0 ?TA 
B ( 43 > INT ( G*D5#1 0 + ♦ 5 ) /1 0 ? TAB ( 59 ) INT < D1*D5*1 0+ . 5 ) /1 0 
2160 L ETI1 =T 
2170 LET B-B+I 

2180 LET Z- ( B-INT (B/100)#100) -60 

2190 IF Z<0 THEN 1290 

2200 l. FT B-INT (B/l 0 0 >*100+100 +Z 

2210 GOTO 1290 

2240 PRINT 

2250 PRINT 

2260 PRINT 

2270 PRINT " DO YOU WANT MORE INFORMATION? ' t 
2280 INPUT D$ 

2290 IF D$= * YES * THEN 650 
2300 END 
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MOON LOCATION’ PROGRAM FOR RADIO SHACK TRS-8 0 DISK BASIC 

340 DEFFNA ( X ) =INT ( X*D5*1 0+ ♦ 5 ) /I 0 

350 DEFFNB ( X ) = < X-INT ( X ) ) *P5 

360 LET P5-2. .0000000000*3. 1415926535 

370 LET D5-36 0 ♦ 00000000 00 /P5 

380 LET R5=P 5/260*00 00000000 

390 PRINT * WHAT IS THE LATITUDE IN DEGREES r MINUTES * ? 

40 0 INPUT L5rU5 

^10 PRINT "WHAT IS THE LONGITUDE IN DEGREES > MINUTES " ? 

420 INPUT L.6 * U6 

430 LET L5=(L5+U5/60)*R5 

440 LET L.6- ( L.6+U6/60 ) *R5 

^50 PRINT ■ WHAT IS THE DESIRED PRINTING INCREMENT IN MINUTES " ? 

460 INPUT I 

470 PRINT-DO YOU ONLY WANT PRINTOUT WHEN THE MOON IS NEAR THF HORIZON*? 

480 INPUT B* 

49 0 IF E:$ - * YES " THEN 52 0 
500 LET 16-100 
510 GOTO 570 

520 PRINT "BELOW WHAT ELEV. IN DEGREES DO YOU WANT PRINTOUT TO OCCUR"? 

530 INPUT 16$ 

5^0 PRINT * WHAT ARE THE GMT MONTH » DAY » YEAR DESIRED*? 

550 IF M- 0 THEN END 
560 GOTO 620 

570 PRINT "WHAT ARE THE GMT MONTH t DAY r YEAR * TIME INTERVAL ( BEGINNING * ENDING ) DESIRE 
D " ? 

580 INPUT H > D > Y x B > E 1 

590 IF M-0 THEN END 

600 IF B$= * YES * THEN 620 

610 GOTO 660 

62.0 El-2400 

630 B-0 

640 GOTO 660 

650 LET Yl-Y- < INT (Y/100)*10Q) 

660 PRINT 

67 0 PRINT "POSITION OF MOON ON " ?M?*/*?D?"/"?Y?" *?B?"-'?E1" GMT = * 

680 PRINT 

690 PRINT* GMT " ? TAB < 1 5 ) * AZ " ? TAB < 30 ) " EL. * ? TAB < 45 ) * GHA " ? TAB ( 60 ) * DEC * 

700 PRINT* " ? TAB ( 15 ) * — "?TAB(30>* — *?TAB(45)" *?TAB(60>" " 

710 PRINT 
720 LET 11=2 

730 REM HERE BEGINS CALCULATION OF JULIAN DATE 

740 IF M>=3 THEN 820 

750 IF INT ( ( Y-1853 ) /4 > <1 1 THEN 780 

760 LET Cl=~l 

770 GOTO 790 

780 LET C1=0 

790 LET J 1=365* < Y-1853 ) +D+30* ( M+9 ) +INT < (M+10)/2) 

800 LET J2=INT ( (Y-1853 )/4)+l+Cl 
810 GOTO 930 

820 IF INT ( ( Y -1852 > /4) <1 1 THEN 850 

830 LET Cl=-1 

840 GOTO 860 

850 LET C1=0 

B60 IF M=9 THEN 900 

870 IF M=1 1 THEN 900 

880 LET C2=0 

890 GOTO 910 

900 LET C2=l 
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91 G J1 -36S*( Y-1852)+D+30*(M-3)+INT( (M-2)/2) 

920 I ET J2=INT< < Y-1852 ) /4 > +C1+C2 
930 LET J-J1+J2 

940 REM (JULIAN DATE-2297547 ♦ 5 ) FOR 0 HOURS GMT 
950 LET T'l-J- 17472 ♦ 5 

960 LET D9 - < B-IMT (8/ 100) *100) +INT < B/10 0 ) #60 

970 LET D6- ( Ed -INT ( El/1 0 0 ) #1 0 0 > +INT (El/1 0 0 ) *60 

980 LET D7 --D9--D6 

990 LET l)8~D7~I 

1000 IF D7>0 THEN 1020 

1010 GOTO 1040 

1020 IF D8>=0 THEN 1910 

1030 LET B=E1 

1040 LET T- ( B-INT ( B/l 0 0 >*100 )/1440+INT(E:/10 0 )/24 
1050 LET T5-T1+T 

1 060 K 1 -FNB < , 75 1 2 1 3+ . 0 366 0 1 1 0 2*T5 ) 

1070 K2-FNB ( « 82251.3+ , 0362916457*T5 ) 

1080 K3--FNB ( . 995766+ ♦ 0 0273777352*15 ) 

109 0 K 4 F N B ( ♦ 9 7 4 2 7 1 + ♦ 0 3 3 8 6 3 1 9 2 2 x T 5 ) 

1100 K5-FNB ( . 0312525+ . 0 36748 1957*T5 ) 

1 1 1 0 L. ET L 8-K1 + . 658XR5XSIN < 2*K4 ) +6 . 289*R5*SIN ( K2 ) 

1 1 20 LET L..8-L8-1 ♦ 274*R5*SIN ( K2~2*K4 ) - ♦ 186*R5*SIN ( K3 ) 

1 1.30 LET L8™L8+»214*R5*SIN<2*K2>-*114*R5*SIN<2xK5) 

1140 LET L 8-L8-*059*R5*SIN(2*K2“2*K4)--.057*R3*SIN(K2+K3-2*K4) 

1150 LET K6-K5+ ♦ 6593*R5*SIN ( 2*K4 > +6 ♦ 2303*R5*SIN ( K2 ) -1 . 272*R5*SIN ( K2-2XK4 ) 
1 3 60 LET l. 7-5 * 144*R5*SIN ( K6 ) - « 1 46*R5*SIN ( K5-2*K4 ) 

117 0 LET Dl-COS ( L7 ) *SIN ( L.8 ) x , 39782 1+SIN ( 1.7 ) x *917463 
1180 LET D 1 - • AT N ( D 1 / ( SQR ( 1 -D If 2 ) ) ) 

1190 LET Gl«50.5+( (Dl)/( ♦792>)*D5 
1 200 LEI G2-80+C (D1 )/ < *808) )*D5 
1210 LET G3-141 «5~< (Dl)x( * 738 ) *05) 

1220 LET G4-170 ♦ 5- < (D1 ) x ( *857 )*D5) 

1. 230 LET A2--COS ( L7 ) *CGS < L8 ) /COS ( 1)1 ) 

1 240 LET Al- ( COS ( L7 ) *8IN ( L.8 ) x ♦ 917463-SIN < L7 ) x ♦ 39782.1 ) /COS ( D 1 ) 

1250 LEI A-ATN ( A1/A2 > 

1260 GQSUES 1520 

1270 LET RJ -A 

128 0 LET L.l« *065709822*11 

1290 L ET L.~T*24*1 ♦ 0 02738+6 « 646055+CL1-INT (Ll/24) *24) 

130 0 LET L.= ( L.-INT ( L/24 ) *24 ) 

131.0 LET G«(L/24)*P5-R1 
1320 IF G<P5 THEN 1350 
1330 G= ; G-P5 
1340 GOTO 1.380 
1350 IF GCO THEN 1370 
1360 GOTO 1380 
1370 G-G+P5 
1380 LET H---L6-G 

1390 LET E3=C0S<L5)*C0S(H)*C0S(D1)+SIN(D1)*SIN<L5> 

140 0 LET E2-SQR ( 1 - < E3*E3 ) ) 

1.410 LET E-ATN ( E3/E2 ) 

1420 IF ECO THEN 1860 

1430 IF E>I6xR5 THEN 1860 

1440 LET A2-SIN ( D1 ) / ( COS ( L5 ) *COS ( E ) ) 

1450 I. FT A2-A2- ( SIN ( 1. 5 ) /COS ( L5 ) ) * ( SIN ( E ) /COS ( E ) ) 

1460 LET Al-SIN ( L5 ) xSTN ( 1)1 ) +COS ( I..5 ) *COS ( Dt ) *COS ( H > 

1 470 LET A1«(SIN(H)*C0S(D1. ) ) / ( SQR ( 1 -Alf 2 ) ) 

1480 LET A=A‘T N ( A1/A2 ) 
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1490 GOSUE: 1520 
1500 GOTO 1670 
1510 REM 

1520 IF A-0 THEN 1540 

1530 GOTO 1580 

1540 IF A2<0 THEN 1560 

1550 GOTO 1660 

1560 LET A=P5/2 

1570 GOTO 1660 

1580 IF A>0 THEN 1640 

1590 IF A2<0 THEN 1620 

1600 LET A~P5+A 

1610 GOTO 1660 

1620 LET A=P5+ ( A-P5/2 ) 

1630 GOTO 1660 

1640 IF A2>=0 THEN 1660 

1650 LET A=A-+ PS/2 

1660 RETURN 


1670 IF (T-Il )>( 2*1)/ 1440 THEN 1690 
1680 GOTO 1700 
1690 PRINT 


1700 

IF 

FNA (D1 ) <0 

THEN 

1830 

1710 

IF 

FNA(GXG1 

THEN 

1830 

1720 

IF 

FNA < G ) >G2 

THEN 

1740 

1730 

GOTO 1770 



1740 

IF 

FNA < G ) <G3 

THEN 

1790 

1750 

IF 

FNA(G)>G4 

THEN 

1830 


1760 GOTO 1810 
1770 LET S$='U- 
1780 GOTO 1840 
1790 LET S$="W" 
1800 GOTO 1840 
1810 LET S$=’J‘ 
1820 GOTO 1840 
1830 LET • 


184 0 PRINT ( INT ( B+ ♦ 5 ) ) 
1850 LETI1=T 


JTAB( 13)FNA(A) » T AB < 28 ) FNA ( E ) * T AB ( 43 ) FNA ( G ) JTAB(56)FNA(D1 )S$ 


1860 1..ET B=B+I 

1870 LET Z- ( B-INT (B/100)*100)-60 

1880 IF Z<0 THEN 960 

1890 LET B-INT ( E’./l 0 0 ) *1 00 + 1 0 0+Z 

1900 GOTO 960 

1910 PRINT 

1920 INPUT * DO YOU WANT MORE INFORMATION " t D$ 
1930 IF D$= * YES " THEN 450 
1940 END 

1970 REM IJ-EURQPEAN UNIVERSAL WINDOW 
1980 REM W-VE-W WINDOW 
1990 REM J— JA-VK-ZL WINDOW 
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MOON AZ-EL ROUTINE FOR HP45 

Allowing for Parallax 

(May also be used for Great Circle 
bearing and distance calculations) 

G.D. Wall ZE2KV 


Moon Az-El Calculations 

Prel iminary : (a) Longitude to STO 1 (degrees and decimals). 

Longitude East positive. West negative. 

(b) Colatitude for North elevated pole to STO 2 
(degrees and decimals). 

Col at for northern latitudes = 90 - Lat 
Col at for southern latitudes = 90 + Lat 

(c) Horizontal Parallax to STO 3 (degrees and 
decimals). Obtain from the Nautical Almanac 

Routine : 

Read in GHA (DMS) DMS* RCL 1 + Note if less than 

360* COS RCL 2 SIN STO 4 x 90 ENTER 
Read in DEC (DMS) North positive South negative DMS •* - 


STO 

5 

SIN 

x RCL 2 COS 

STO 6 RCL 5 COS 

STO 

5 

x + 

ENTER COS" 1 

ENTER (STO 8) SIN 

STO 

7 

RCL 

3 x + CHS 

90 + Read Elevation 

x-y 

RCL 

6 

x CHS RCL 5 

+ RCL 4 RCL 7 x 

* 

* 

COS" 1 

If 

* less than 360 Read Azimuth otherwise proceed 

CHS 

360 

+ 

Read Azimuth 



At Test Point * less than 360 means values of 180 through 
270 to 360, and negative values through -90 to -180 
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Test: 


Location 

36° 

- 45' 

i 

-P» 

o 


119° 

- 47' 

- 10" W 

Horizontal 

Parallax 


56.4' 

GHA 


CO 

cn 

o 

- 33.6' 

Dec! i nation 


13° 

- 21.2' S 

Read: 

Elevation 

29.61° 


Azimuth 140.61° 

Great Circle calculations 

1. Home station data is entered into STO 1 and STO 2 as before. 

STO 3 is zero. 

2. Enter the longitude of the distant point at GHA but with 
reversed sign, i.e., Long 120 W = 120 

Long 50 E = -50 

3. Enter the latitude of the distant point at DEC. Positive 
for North latitudes, negative for South. 

4. Great Circle angular distance is stored at STO 8 for future use. 

5. Bearing of the distant station is read at Azimuth. 

6. Great Circle distance is then obtained: 


RCL 

8 69.057 

x Read 

(in miles) 

RCL 

8 111.14 

x Read 

(in kilometers) 


7. Part of the parallax correction routine is not used in the Great 
Circle calculations and may be omitted. Miss out the steps 

(RCL 3 Read Elevation x-y) but roll down twice after 

STO 7 and before RCL 6. 

Test : Fresno 36° - 45' - 40" N; 119° - 47’ - 10" W 

to Salisbury, Rhodesia 18°S; 31°E 
Read : Bearing 62.77° Distance 10235 miles 
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AZ/EL COORDINATES FOR THE SUN OR MOON USING 
THE T. I . 58/59 AND THE NAUTICAL ALMANAC 

The following program supplies AZ/EL coordinates from 
any latitude/longitude for the sun or moon using the hourly 
GHA information presented in the Nautical Almanac. This 
program also allows for 15 minute increments between the 
hourly GHA's. 

I. PROGRAM INSTRUCTIONS 

A. To load the program press: 1) 2nd. CE 

2) 2nd. CMS 

3) 1 2nd. OP 17 

4) LRN 

Begin at Step 000 and end at Step 228. (Note: The 
display will read 229 00 when completed.) 

♦IMPORTANT! MOONRISE: There are times at moonrise 
when the moon's GHA (per the Nautical Almanac) is 
<300°. Only at these times the normal computed 
answer per the formula must be subtracted from 360° 
to give the proper azimuth. To allow the calculator 
to perform this step, a random number must be chosen 
which is greater than your moonset GHA but less than 
say 300° . This number is stored in program steps 
(82,83,84) (110,111,112) and (136,137,138). 

For example, my moonset is around 170° to 180° GHA 
so I used 200 as my number since it is less than 300° - 
and - greater than my moonset GHA . 
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II. USER INSTRUCTIONS 


A. Enter desired latitude in degrees, minutes, seconds 
and convert to decimal degrees; store answer in 
register 0. 

EXAMPLE : 39° 49' 37" would be entered as 39.4937 


PRESS DISPLAY 

1) 2nd. DMS 39.82694444 

2) STO 00 same 

B. Enter desired longitude in degrees, minutes, seconds 
and convert to decimal degrees; store answer in 
Register 1. 

EXAMPLE : 76° 42' 30" would be entered as 76.4230 


C. 


D. 


PRESS DISPLAY 

1) 2nd. DMS 76.70833333 

2) STO 01 same 

Press "E" - This step is only done when the calcu- 
lator is initially turned on or when the latitude/ 
longitude has been changed. 

Enter hourly GHA in degrees, minutes, convert to 
decimal degrees; store in Register 2 and Register 6. 


EXAMPLE: 


Moon GHA at 1400 UTC on 10/16/79. 

PRESS DISPLAY 


1) 9.599 

2) 2nd. DMS 

3) STO 03 


9.599 

10.00833333 

same 
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E) Enter hourly declination in degrees, minutes and convert to 


decimal degrees; store in Register 3. (Note: " " if 

southern declination) 

EXAMPLE : Moon Declination at 1400 UTC on 10/16/79. 

PRESS DISPLAY 

1) 9.599 9.599 

2) 2nd. DMS 10.00833333 



3) STO 03 

same 


PRESS 

DISPLAY 

F) 

1) A 

Elevation (Ex. 60.06°) 


2) R/S 

Azimuth (Ex. 185.9°) 

G) 

1) B 

Elevation @ GHA +15 min. (Ex. 59.61°) 


2) R/S 

Azimuth @ GHA +15 min. (Ex. 192.86°) 

H) 

1) c 

Elevation @ GHA +30 min. (Ex. 58.84°) 


2) R/S 

Azimuth @ GHA +30 min. (Ex. 199.59°) 

I) 

1) D 

Elevation @ GHA +45 min. (Ex. 57.77°) 


2) R/S 

Azimuth @ GHA +45 min. (Ex. 205.99°) 


NOTE : Keys B 1 , C 1 , D 1 are used when tracking the sun. 

This program provides true bearing readings. If your antenna 
has been aligned at magnetic North a correction from magnetic 
to true North must be made or the antenna should be aligned 
using the North Star. Once you are obtaining echoes from the 
moon any electrical shift in the antenna pattern will show 
up by comparing the calculator settings VRS. loudest echoes. 

Brian M. Manns K3VGX 

10/16/79 
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PROGRAM EQUATIONS 


ELEVATION = SIN" 


AZIMUTH 


(COS (GHA- LONG) COS. LAT. COS . DEC)+(SIN LAT.SIN DEC) 


“ S_1 ( CT?7 El Q C0S.LflT - (TAN.LAT.TAN.ElT) 
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/va/TBa JaJ/Oi O' 

titif D/^/cJct- yrxrics is page__Lof_^_ Tl Progrommoble fT^r, 

programmer: A^iiL pA TF Coding Form v' 



/iWrxAJAj B'-XZbKc + 

TITLE U /ST/C\JCe 'T r C7IQ t U> PAGE X np 5L 

PROGRAMMER ^64 <^3 nATP jofltfa 


LOC CODE 


5— 

ss 

43 

03 

(cl 

;'9 02 

04 
IS 
43 

05 
8S 
00 
32 
is; 
43 

jo o/ 
9s- 
9/ 
8! 
IS 
43 
03 
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